home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 4.3 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 37 3a 34 | 30 20 31 39 39 35 0a 3b | 13:57:4|0 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 65 6c | 65 63 74 72 69 63 2f 65 |/lisp/el|ectric/e|
|00000090| 63 68 69 73 74 6f 72 79 | 2e 65 6c 0a 3b 3b 3b 20 |chistory|.el.;;; |
|000000a0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|000000b0| 2e 31 33 20 58 45 6d 61 | 63 73 20 4c 75 63 69 64 |.13 XEma|cs Lucid|
|000000c0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 3b 20 31 2d 53 |ersion 2|.25; 1-S|
|000000e0| 65 70 2d 39 34 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ep-94..;|;; optim|
|000000f0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000100| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000110| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000120| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000130| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000140| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000150| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000160| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000170| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000180| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000190| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |. (s|tring-le|
|000001a0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001b0| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|). (e|
|000001c0| 72 72 6f 72 20 22 54 68 | 69 73 20 66 69 6c 65 20 |rror "Th|is file |
|000001d0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001e0| 20 45 6d 61 63 73 20 31 | 39 2e 22 29 29 0a 0a 28 | Emacs 1|9."))..(|
|000001f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 88 c0 |byte-cod|e "..!..|
|00000200| c2 21 88 c0 c3 21 87 22 | 20 5b 72 65 71 75 69 72 |.!...!."| [requir|
|00000210| 65 20 65 6c 65 63 74 72 | 69 63 20 63 68 69 73 74 |e electr|ic chist|
|00000220| 6f 72 79 20 68 65 6c 70 | 65 72 5d 20 32 29 0a 28 |ory help|er] 2).(|
|00000230| 66 73 65 74 20 27 45 6c | 65 63 74 72 69 63 2d 63 |fset 'El|ectric-c|
|00000240| 6f 6d 6d 61 6e 64 2d 68 | 69 73 74 6f 72 79 2d 72 |ommand-h|istory-r|
|00000250| 65 64 6f 2d 65 78 70 72 | 65 73 73 69 6f 6e 20 23 |edo-expr|ession #|
|00000260| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 6e 6f 63 6f |[(&optio|nal noco|
|00000270| 6e 66 69 72 6d 29 20 22 | c0 19 8a c2 71 88 c3 79 |nfirm) "|....q..y|
|00000280| 88 c4 70 21 11 c5 c6 21 | ad 8a 09 ad 87 c7 c8 0e |..p!...!|........|
|00000290| 09 09 44 5c 22 2a 87 22 | 20 5b 6e 69 6c 20 74 6f |..D\"*."| [nil to|
|000002a0| 64 6f 20 22 2a 43 6f 6d | 6d 61 6e 64 20 48 69 73 |do "*Com|mand His|
|000002b0| 74 6f 72 79 2a 22 20 30 | 20 72 65 61 64 20 62 6f |tory*" 0| read bo|
|000002c0| 75 6e 64 70 20 65 6c 65 | 63 74 72 69 63 2d 68 69 |undp ele|ctric-hi|
|000002d0| 73 74 6f 72 79 2d 69 6e | 2d 70 72 6f 67 72 65 73 |story-in|-progres|
|000002e0| 73 20 74 68 72 6f 77 20 | 65 6c 65 63 74 72 69 63 |s throw |electric|
|000002f0| 2d 68 69 73 74 6f 72 79 | 2d 71 75 69 74 20 6e 6f |-history|-quit no|
|00000300| 63 6f 6e 66 69 72 6d 5d | 20 34 20 22 5c 0a 45 64 |confirm]| 4 "\.Ed|
|00000310| 69 74 20 63 75 72 72 65 | 6e 74 20 68 69 73 74 6f |it curre|nt histo|
|00000320| 72 79 20 6c 69 6e 65 20 | 69 6e 20 6d 69 6e 69 62 |ry line |in minib|
|00000330| 75 66 66 65 72 20 61 6e | 64 20 65 78 65 63 75 74 |uffer an|d execut|
|00000340| 65 20 72 65 73 75 6c 74 | 2e 0a 57 69 74 68 20 70 |e result|..With p|
|00000350| 72 65 66 69 78 20 61 72 | 67 75 6d 65 6e 74 20 4e |refix ar|gument N|
|00000360| 4f 43 4f 4e 46 49 52 4d | 2c 20 65 78 65 63 75 74 |OCONFIRM|, execut|
|00000370| 65 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 20 61 |e curren|t line a|
|00000380| 73 2d 69 73 20 77 69 74 | 68 6f 75 74 20 65 64 69 |s-is wit|hout edi|
|00000390| 74 69 6e 67 2e 22 20 22 | 50 22 5d 29 0a 28 62 79 |ting." "|P"]).(by|
|000003a0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac 82 c2 11 |te-code |"..!....|
|000003b0| 09 84 40 01 c3 20 11 c4 | 09 c1 5c 22 88 c5 1e 06 |..@.. ..|..\"....|
|000003c0| c5 c7 57 ab 92 c8 09 c9 | ca 0e 06 5c 22 cb 23 88 |..W.....|...\".#.|
|000003d0| 0e 06 54 89 16 06 aa 6a | 29 c3 20 c5 1e 06 1e 0c |..T....j|). .....|
|000003e0| c8 09 cd 0e 0c 23 88 0e | 06 c7 57 ab 93 c8 0e 0c |.....#..|..W.....|
|000003f0| c9 ca 0e 06 5c 22 cb 23 | 88 0e 06 54 89 16 06 aa |....\".#|...T....|
|00000400| 69 2a c8 09 ce cf 23 88 | c8 09 d0 d1 23 88 c8 09 |i*....#.|....#...|
|00000410| d2 d1 23 88 c8 09 d3 d4 | 23 88 c8 09 d5 d6 23 88 |..#.....|#.....#.|
|00000420| c8 09 d7 d8 23 88 c8 09 | d9 da 23 88 c8 09 db dc |....#...|..#.....|
|00000430| 23 88 c8 09 dd de 23 88 | c8 09 df e0 23 88 c8 09 |#.....#.|....#...|
|00000440| e1 e2 23 88 c8 09 e3 e4 | 23 88 c8 09 e5 e6 23 88 |..#.....|#.....#.|
|00000450| c8 09 e7 c2 23 88 c8 09 | e8 e6 23 88 c8 09 e9 e6 |....#...|..#.....|
|00000460| 23 88 c8 09 ea eb 23 88 | c8 09 ec ed 23 88 c8 09 |#.....#.|....#...|
|00000470| ee ef 23 88 c8 09 f0 f1 | 23 88 c8 09 f2 f3 23 88 |..#.....|#.....#.|
|00000480| c8 09 f4 f5 23 88 c8 09 | f6 f7 23 88 c8 09 f8 f7 |....#...|..#.....|
|00000490| 23 88 c8 09 f9 ef 23 88 | c8 09 fa f7 23 88 c8 09 |#.....#.|....#...|
|000004a0| fb ef 23 88 c8 09 fc fd | 23 88 c8 09 fe ff 23 88 |..#.....|#.....#.|
|000004b0| c8 09 81 40 00 f5 23 88 | c8 09 81 41 00 f7 23 88 |...@..#.|...A..#.|
|000004c0| c8 09 81 42 00 ef 23 88 | c8 09 81 43 00 fd 23 88 |...B..#.|...C..#.|
|000004d0| c8 09 81 44 00 ff 23 88 | c8 09 81 45 00 81 46 00 |...D..#.|...E..F.|
|000004e0| 23 88 c8 09 81 47 00 81 | 48 00 23 88 c2 87 22 20 |#....G..|H.#..." |
|000004f0| 5b 62 6f 75 6e 64 70 20 | 65 6c 65 63 74 72 69 63 |[boundp |electric|
|00000500| 2d 68 69 73 74 6f 72 79 | 2d 6d 61 70 20 6e 69 6c |-history|-map nil|
|00000510| 20 6d 61 6b 65 2d 6b 65 | 79 6d 61 70 20 73 65 74 | make-ke|ymap set|
|00000520| 2d 6b 65 79 6d 61 70 2d | 6e 61 6d 65 20 30 20 69 |-keymap-|name 0 i|
|00000530| 20 31 32 38 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 | 128 def|ine-key |
|00000540| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 31 20 45 6c |make-str|ing 1 El|
|00000550| 65 63 74 72 69 63 2d 68 | 69 73 74 6f 72 79 2d 75 |ectric-h|istory-u|
|00000560| 6e 64 65 66 69 6e 65 64 | 20 6d 61 70 20 22 1b 22 |ndefined| map "."|
|00000570| 20 22 15 22 20 75 6e 69 | 76 65 72 73 61 6c 2d 61 | "." uni|versal-a|
|00000580| 72 67 75 6d 65 6e 74 20 | 22 20 22 20 45 6c 65 63 |rgument |" " Elec|
|00000590| 74 72 69 63 2d 63 6f 6d | 6d 61 6e 64 2d 68 69 73 |tric-com|mand-his|
|000005a0| 74 6f 72 79 2d 72 65 64 | 6f 2d 65 78 70 72 65 73 |tory-red|o-expres|
|000005b0| 73 69 6f 6e 20 22 21 22 | 20 22 1b 18 22 20 65 76 |sion "!"| ".." ev|
|000005c0| 61 6c 2d 73 65 78 70 20 | 22 1b 04 22 20 64 6f 77 |al-sexp |".." dow|
|000005d0| 6e 2d 6c 69 73 74 20 22 | 1b 15 22 20 62 61 63 6b |n-list "|.." back|
|000005e0| 77 61 72 64 2d 75 70 2d | 6c 69 73 74 20 22 1b 02 |ward-up-|list "..|
|000005f0| 22 20 62 61 63 6b 77 61 | 72 64 2d 73 65 78 70 20 |" backwa|rd-sexp |
|00000600| 22 1b 06 22 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |".." for|ward-sex|
|00000610| 70 20 22 1b 01 22 20 62 | 65 67 69 6e 6e 69 6e 67 |p ".." b|eginning|
|00000620| 2d 6f 66 2d 64 65 66 75 | 6e 20 22 1b 05 22 20 65 |-of-defu|n ".." e|
|00000630| 6e 64 2d 6f 66 2d 64 65 | 66 75 6e 20 22 1b 0e 22 |nd-of-de|fun ".."|
|00000640| 20 66 6f 72 77 61 72 64 | 2d 6c 69 73 74 20 22 1b | forward|-list ".|
|00000650| 10 22 20 62 61 63 6b 77 | 61 72 64 2d 6c 69 73 74 |." backw|ard-list|
|00000660| 20 22 71 22 20 45 6c 65 | 63 74 72 69 63 2d 68 69 | "q" Ele|ctric-hi|
|00000670| 73 74 6f 72 79 2d 71 75 | 69 74 20 22 03 22 20 22 |story-qu|it "." "|
|00000680| 03 03 22 20 22 1d 22 20 | 22 1a 22 20 73 75 73 70 |.." "." |"." susp|
|00000690| 65 6e 64 2d 65 6d 61 63 | 73 20 28 63 6f 6e 74 72 |end-emac|s (contr|
|000006a0| 6f 6c 20 68 29 20 48 65 | 6c 70 65 72 2d 68 65 6c |ol h) He|lper-hel|
|000006b0| 70 20 62 61 63 6b 73 70 | 61 63 65 20 70 72 65 76 |p backsp|ace prev|
|000006c0| 69 6f 75 73 2d 6c 69 6e | 65 20 22 3f 22 20 48 65 |ious-lin|e "?" He|
|000006d0| 6c 70 65 72 2d 64 65 73 | 63 72 69 62 65 2d 62 69 |lper-des|cribe-bi|
|000006e0| 6e 64 69 6e 67 73 20 22 | 1b 3e 22 20 65 6e 64 2d |ndings "|.>" end-|
|000006f0| 6f 66 2d 62 75 66 66 65 | 72 20 22 1b 3c 22 20 62 |of-buffe|r ".<" b|
|00000700| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 62 75 66 66 |eginning|-of-buff|
|00000710| 65 72 20 22 5c 6e 22 20 | 6e 65 78 74 2d 6c 69 6e |er "\n" |next-lin|
|00000720| 65 20 22 0d 22 20 22 7f | 22 20 22 0e 22 20 22 10 |e "." ".|" "." ".|
|00000730| 22 20 22 1b 76 22 20 73 | 63 72 6f 6c 6c 2d 64 6f |" ".v" s|croll-do|
|00000740| 77 6e 20 22 16 22 20 73 | 63 72 6f 6c 6c 2d 75 70 |wn "." s|croll-up|
|00000750| 20 5b 68 6f 6d 65 5d 20 | 5b 64 6f 77 6e 5d 20 5b | [home] |[down] [|
|00000760| 75 70 5d 20 5b 70 72 69 | 6f 72 5d 20 5b 6e 65 78 |up] [pri|or] [nex|
|00000770| 74 5d 20 22 0c 22 20 72 | 65 63 65 6e 74 65 72 20 |t] "." r|ecenter |
|00000780| 22 1b 16 22 20 73 63 72 | 6f 6c 6c 2d 6f 74 68 65 |".." scr|oll-othe|
|00000790| 72 2d 77 69 6e 64 6f 77 | 5d 20 36 29 0a 28 64 65 |r-window|] 6).(de|
|000007a0| 66 76 61 72 20 65 6c 65 | 63 74 72 69 63 2d 63 6f |fvar ele|ctric-co|
|000007b0| 6d 6d 61 6e 64 2d 68 69 | 73 74 6f 72 79 2d 68 6f |mmand-hi|story-ho|
|000007c0| 6f 6b 20 6e 69 6c 20 22 | 5c 0a 49 66 20 6e 6f 6e |ok nil "|\.If non|
|000007d0| 2d 6e 69 6c 2c 20 69 74 | 73 20 76 61 6c 75 65 20 |-nil, it|s value |
|000007e0| 69 73 20 63 61 6c 6c 65 | 64 20 62 79 20 60 65 6c |is calle|d by `el|
|000007f0| 65 63 74 72 69 63 2d 63 | 6f 6d 6d 61 6e 64 2d 68 |ectric-c|ommand-h|
|00000800| 69 73 74 6f 72 79 27 2e | 22 29 0a 28 66 73 65 74 |istory'.|").(fset|
|00000810| 20 27 65 6c 65 63 74 72 | 69 63 2d 63 6f 6d 6d 61 | 'electr|ic-comma|
|00000820| 6e 64 2d 68 69 73 74 6f | 72 79 20 23 5b 6e 69 6c |nd-histo|ry #[nil|
|00000830| 20 22 c0 70 c1 1a 1b 1c | c5 8e c6 c7 8d 12 29 5c | ".p....|......)\|
|00000840| 6e 3a ad 99 0b 71 88 5c | 6e 40 ab 8c c8 5c 6e 41 |n:...q.\|n@...\nA|
|00000850| 40 40 5c 6e 41 40 41 5c | 22 aa 86 c9 ca 5c 6e 41 |@@\nA@A\|"....\nA|
|00000860| 40 5c 22 2b 87 22 20 5b | 74 20 6e 69 6c 20 74 6f |@\"+." [|t nil to|
|00000870| 64 6f 20 6f 6c 64 2d 62 | 75 66 66 65 72 20 65 6c |do old-b|uffer el|
|00000880| 65 63 74 72 69 63 2d 68 | 69 73 74 6f 72 79 2d 69 |ectric-h|istory-i|
|00000890| 6e 2d 70 72 6f 67 72 65 | 73 73 20 28 28 62 79 74 |n-progre|ss ((byt|
|000008a0| 65 2d 63 6f 64 65 20 22 | c0 71 88 c1 20 88 c2 70 |e-code "|.q.. ..p|
|000008b0| 21 87 22 20 5b 22 2a 43 | 6f 6d 6d 61 6e 64 20 48 |!." ["*C|ommand H|
|000008c0| 69 73 74 6f 72 79 2a 22 | 20 43 6f 6d 6d 61 6e 64 |istory*"| Command|
|000008d0| 2d 68 69 73 74 6f 72 79 | 2d 73 65 74 75 70 20 62 |-history|-setup b|
|000008e0| 75 72 79 2d 62 75 66 66 | 65 72 5d 20 32 29 29 20 |ury-buff|er] 2)) |
|000008f0| 65 6c 65 63 74 72 69 63 | 2d 68 69 73 74 6f 72 79 |electric|-history|
|00000900| 2d 71 75 69 74 20 28 62 | 79 74 65 2d 63 6f 64 65 |-quit (b|yte-code|
|00000910| 20 22 c0 8b 87 22 20 5b | 28 28 62 79 74 65 2d 63 | "..." [|((byte-c|
|00000920| 6f 64 65 20 22 c0 8b 88 | c1 c2 21 88 c3 c4 21 88 |ode "...|..!...!.|
|00000930| 6d ab 8c c5 20 88 c6 c7 | 21 88 c8 c9 ca 5c 22 87 |m... ...|!....\".|
|00000940| cb 1e 0c cd c9 ce cf 23 | 29 87 22 20 5b 28 28 62 |.......#|)." [((b|
|00000950| 79 74 65 2d 63 6f 64 65 | 20 22 c0 20 88 c1 71 88 |yte-code| ". ..q.|
|00000960| c2 c3 c4 0d 23 87 22 20 | 5b 6c 69 73 74 2d 63 6f |....#." |[list-co|
|00000970| 6d 6d 61 6e 64 2d 68 69 | 73 74 6f 72 79 20 22 2a |mmand-hi|story "*|
|00000980| 43 6f 6d 6d 61 6e 64 20 | 48 69 73 74 6f 72 79 2a |Command |History*|
|00000990| 22 20 43 6f 6d 6d 61 6e | 64 2d 68 69 73 74 6f 72 |" Comman|d-histor|
|000009a0| 79 2d 73 65 74 75 70 20 | 65 6c 65 63 74 72 69 63 |y-setup |electric|
|000009b0| 2d 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 |-command|-history|
|000009c0| 20 22 45 6c 65 63 74 72 | 69 63 20 48 69 73 74 6f | "Electr|ic Histo|
|000009d0| 72 79 22 20 65 6c 65 63 | 74 72 69 63 2d 68 69 73 |ry" elec|tric-his|
|000009e0| 74 6f 72 79 2d 6d 61 70 | 5d 20 34 29 29 20 45 6c |tory-map|] 4)) El|
|000009f0| 65 63 74 72 69 63 2d 70 | 6f 70 2d 75 70 2d 77 69 |ectric-p|op-up-wi|
|00000a00| 6e 64 6f 77 20 22 2a 43 | 6f 6d 6d 61 6e 64 20 48 |ndow "*C|ommand H|
|00000a10| 69 73 74 6f 72 79 2a 22 | 20 72 75 6e 2d 68 6f 6f |istory*"| run-hoo|
|00000a20| 6b 73 20 65 6c 65 63 74 | 72 69 63 2d 63 6f 6d 6d |ks elect|ric-comm|
|00000a30| 61 6e 64 2d 68 69 73 74 | 6f 72 79 2d 68 6f 6f 6b |and-hist|ory-hook|
|00000a40| 20 64 69 6e 67 20 6d 65 | 73 73 61 67 65 20 22 4e | ding me|ssage "N|
|00000a50| 6f 20 63 6f 6d 6d 61 6e | 64 20 68 69 73 74 6f 72 |o comman|d histor|
|00000a60| 79 2e 22 20 74 68 72 6f | 77 20 65 6c 65 63 74 72 |y." thro|w electr|
|00000a70| 69 63 2d 68 69 73 74 6f | 72 79 2d 71 75 69 74 20 |ic-histo|ry-quit |
|00000a80| 6e 69 6c 20 22 72 65 74 | 75 72 6e 20 74 6f 20 48 |nil "ret|urn to H|
|00000a90| 69 73 74 6f 72 79 22 20 | 48 65 6c 70 65 72 2d 72 |istory" |Helper-r|
|00000aa0| 65 74 75 72 6e 2d 62 6c | 75 72 62 20 45 6c 65 63 |eturn-bl|urb Elec|
|00000ab0| 74 72 69 63 2d 63 6f 6d | 6d 61 6e 64 2d 6c 6f 6f |tric-com|mand-loo|
|00000ac0| 70 20 22 2d 3e 22 20 74 | 5d 20 34 29 29 5d 20 31 |p "->" t|] 4))] 1|
|00000ad0| 29 20 61 70 70 6c 79 20 | 65 64 69 74 2d 61 6e 64 |) apply |edit-and|
|00000ae0| 2d 65 76 61 6c 2d 63 6f | 6d 6d 61 6e 64 20 22 52 |-eval-co|mmand "R|
|00000af0| 65 64 6f 3a 20 22 5d 20 | 33 20 22 5c 0a 5c 5c 3c |edo: "] |3 "\.\\<|
|00000b00| 65 6c 65 63 74 72 69 63 | 2d 68 69 73 74 6f 72 79 |electric|-history|
|00000b10| 2d 6d 61 70 3e 4d 61 6a | 6f 72 20 6d 6f 64 65 20 |-map>Maj|or mode |
|00000b20| 66 6f 72 20 65 78 61 6d | 69 6e 69 6e 67 20 61 6e |for exam|ining an|
|00000b30| 64 20 72 65 64 6f 69 6e | 67 20 63 6f 6d 6d 61 6e |d redoin|g comman|
|00000b40| 64 73 20 66 72 6f 6d 20 | 60 63 6f 6d 6d 61 6e 64 |ds from |`command|
|00000b50| 2d 68 69 73 74 6f 72 79 | 27 2e 0a 54 68 69 73 20 |-history|'..This |
|00000b60| 70 6f 70 73 20 75 70 20 | 61 20 77 69 6e 64 6f 77 |pops up |a window|
|00000b70| 20 77 69 74 68 20 74 68 | 65 20 43 6f 6d 6d 61 6e | with th|e Comman|
|00000b80| 64 20 48 69 73 74 6f 72 | 79 20 6c 69 73 74 69 6e |d Histor|y listin|
|00000b90| 67 2e 0a 54 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |g..The n|umber of|
|00000ba0| 20 63 6f 6d 6d 61 6e 64 | 20 6c 69 73 74 65 64 20 | command| listed |
|00000bb0| 69 73 20 63 6f 6e 74 72 | 6f 6c 6c 65 64 20 62 79 |is contr|olled by|
|00000bc0| 20 60 6c 69 73 74 2d 63 | 6f 6d 6d 61 6e 64 2d 68 | `list-c|ommand-h|
|00000bd0| 69 73 74 6f 72 79 2d 6d | 61 78 27 2e 0a 54 68 65 |istory-m|ax'..The|
|00000be0| 20 63 6f 6d 6d 61 6e 64 | 20 68 69 73 74 6f 72 79 | command| history|
|00000bf0| 20 69 73 20 66 69 6c 74 | 65 72 65 64 20 62 79 20 | is filt|ered by |
|00000c00| 60 6c 69 73 74 2d 63 6f | 6d 6d 61 6e 64 2d 68 69 |`list-co|mmand-hi|
|00000c10| 73 74 6f 72 79 2d 66 69 | 6c 74 65 72 27 20 69 66 |story-fi|lter' if|
|00000c20| 20 6e 6f 6e 2d 6e 69 6c | 2e 0a 43 6f 6d 62 69 6e | non-nil|..Combin|
|00000c30| 65 73 20 74 79 70 65 6f | 75 74 20 43 6f 6d 6d 61 |es typeo|ut Comma|
|00000c40| 6e 64 20 48 69 73 74 6f | 72 79 20 6c 69 73 74 20 |nd Histo|ry list |
|00000c50| 77 69 6e 64 6f 77 20 77 | 69 74 68 20 6d 65 6e 75 |window w|ith menu|
|00000c60| 20 6c 69 6b 65 20 73 65 | 6c 65 63 74 69 6f 6e 0a | like se|lection.|
|00000c70| 6f 66 20 61 6e 20 65 78 | 70 72 65 73 73 69 6f 6e |of an ex|pression|
|00000c80| 20 66 72 6f 6d 20 74 68 | 65 20 68 69 73 74 6f 72 | from th|e histor|
|00000c90| 79 20 66 6f 72 20 72 65 | 2d 65 76 61 6c 75 61 74 |y for re|-evaluat|
|00000ca0| 69 6f 6e 20 69 6e 20 74 | 68 65 20 2a 6f 72 69 67 |ion in t|he *orig|
|00000cb0| 69 6e 61 6c 2a 20 62 75 | 66 66 65 72 2e 0a 0a 54 |inal* bu|ffer...T|
|00000cc0| 68 65 20 68 69 73 74 6f | 72 79 20 64 69 73 70 6c |he histo|ry displ|
|00000cd0| 61 79 65 64 20 69 73 20 | 66 69 6c 74 65 72 65 64 |ayed is |filtered|
|00000ce0| 20 62 79 20 60 6c 69 73 | 74 2d 63 6f 6d 6d 61 6e | by `lis|t-comman|
|00000cf0| 64 2d 68 69 73 74 6f 72 | 79 2d 66 69 6c 74 65 72 |d-histor|y-filter|
|00000d00| 27 20 69 66 20 6e 6f 6e | 2d 6e 69 6c 2e 0a 0a 54 |' if non|-nil...T|
|00000d10| 68 69 73 20 70 6f 70 73 | 20 75 70 20 61 20 77 69 |his pops| up a wi|
|00000d20| 6e 64 6f 77 20 77 69 74 | 68 20 74 68 65 20 43 6f |ndow wit|h the Co|
|00000d30| 6d 6d 61 6e 64 20 48 69 | 73 74 6f 72 79 20 6c 69 |mmand Hi|story li|
|00000d40| 73 74 69 6e 67 2e 20 20 | 49 66 20 74 68 65 20 76 |sting. |If the v|
|00000d50| 65 72 79 0a 6e 65 78 74 | 20 63 68 61 72 61 63 74 |ery.next| charact|
|00000d60| 65 72 20 74 79 70 65 64 | 20 69 73 20 53 70 61 63 |er typed| is Spac|
|00000d70| 65 2c 20 74 68 65 20 6c | 69 73 74 69 6e 67 20 69 |e, the l|isting i|
|00000d80| 73 20 6b 69 6c 6c 65 64 | 20 61 6e 64 20 74 68 65 |s killed| and the|
|00000d90| 20 70 72 65 76 69 6f 75 | 73 0a 77 69 6e 64 6f 77 | previou|s.window|
|00000da0| 20 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 20 69 | configu|ration i|
|00000db0| 73 20 72 65 73 74 6f 72 | 65 64 2e 20 20 4f 74 68 |s restor|ed. Oth|
|00000dc0| 65 72 77 69 73 65 2c 20 | 79 6f 75 20 63 61 6e 20 |erwise, |you can |
|00000dd0| 62 72 6f 77 73 65 20 69 | 6e 20 74 68 65 0a 43 6f |browse i|n the.Co|
|00000de0| 6d 6d 61 6e 64 20 48 69 | 73 74 6f 72 79 20 77 69 |mmand Hi|story wi|
|00000df0| 74 68 20 20 52 65 74 75 | 72 6e 20 20 6d 6f 76 69 |th Retu|rn movi|
|00000e00| 6e 67 20 64 6f 77 6e 20 | 61 6e 64 20 20 44 65 6c |ng down |and Del|
|00000e10| 65 74 65 20 20 6d 6f 76 | 69 6e 67 20 75 70 2c 20 |ete mov|ing up, |
|00000e20| 70 6f 73 73 69 62 6c 79 | 0a 73 65 6c 65 63 74 69 |possibly|.selecti|
|00000e30| 6e 67 20 61 6e 20 65 78 | 70 72 65 73 73 69 6f 6e |ng an ex|pression|
|00000e40| 20 74 6f 20 62 65 20 72 | 65 64 6f 6e 65 20 77 69 | to be r|edone wi|
|00000e50| 74 68 20 53 70 61 63 65 | 20 6f 72 20 71 75 69 74 |th Space| or quit|
|00000e60| 74 69 6e 67 20 77 69 74 | 68 20 60 51 27 2e 0a 0a |ting wit|h `Q'...|
|00000e70| 4c 69 6b 65 20 45 6d 61 | 63 73 2d 4c 69 73 70 20 |Like Ema|cs-Lisp |
|00000e80| 6d 6f 64 65 20 65 78 63 | 65 70 74 20 74 68 61 74 |mode exc|ept that|
|00000e90| 20 63 68 61 72 61 63 74 | 65 72 73 20 64 6f 20 6e | charact|ers do n|
|00000ea0| 6f 74 20 69 6e 73 65 72 | 74 20 74 68 65 6d 73 65 |ot inser|t themse|
|00000eb0| 6c 76 65 73 20 61 6e 64 | 0a 54 61 62 20 61 6e 64 |lves and|.Tab and|
|00000ec0| 20 4c 69 6e 65 66 65 65 | 64 20 64 6f 20 6e 6f 74 | Linefee|d do not|
|00000ed0| 20 69 6e 64 65 6e 74 2e | 20 20 49 6e 73 74 65 61 | indent.| Instea|
|00000ee0| 64 20 74 68 65 73 65 20 | 63 6f 6d 6d 61 6e 64 73 |d these |commands|
|00000ef0| 20 61 72 65 20 70 72 6f | 76 69 64 65 64 3a 0a 5c | are pro|vided:.\|
|00000f00| 5c 7b 65 6c 65 63 74 72 | 69 63 2d 68 69 73 74 6f |\{electr|ic-histo|
|00000f10| 72 79 2d 6d 61 70 7d 0a | 0a 43 61 6c 6c 73 20 74 |ry-map}.|.Calls t|
|00000f20| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 60 65 6c 65 |he value| of `ele|
|00000f30| 63 74 72 69 63 2d 63 6f | 6d 6d 61 6e 64 2d 68 69 |ctric-co|mmand-hi|
|00000f40| 73 74 6f 72 79 2d 68 6f | 6f 6b 27 20 69 66 20 74 |story-ho|ok' if t|
|00000f50| 68 61 74 20 69 73 20 6e | 6f 6e 2d 6e 69 6c 2e 0a |hat is n|on-nil..|
|00000f60| 54 68 65 20 43 6f 6d 6d | 61 6e 64 20 48 69 73 74 |The Comm|and Hist|
|00000f70| 6f 72 79 20 6c 69 73 74 | 69 6e 67 20 69 73 20 72 |ory list|ing is r|
|00000f80| 65 63 6f 6d 70 75 74 65 | 64 20 65 61 63 68 20 74 |ecompute|d each t|
|00000f90| 69 6d 65 20 74 68 69 73 | 20 6d 6f 64 65 20 69 73 |ime this| mode is|
|00000fa0| 20 69 6e 76 6f 6b 65 64 | 2e 22 20 6e 69 6c 5d 29 | invoked|." nil])|
|00000fb0| 0a 28 66 73 65 74 20 27 | 45 6c 65 63 74 72 69 63 |.(fset '|Electric|
|00000fc0| 2d 68 69 73 74 6f 72 79 | 2d 75 6e 64 65 66 69 6e |-history|-undefin|
|00000fd0| 65 64 20 23 5b 6e 69 6c | 20 22 c0 20 88 c1 c2 c3 |ed #[nil| ". ....|
|00000fe0| 21 21 88 c4 c5 21 87 22 | 20 5b 64 69 6e 67 20 6d |!!...!."| [ding m|
|00000ff0| 65 73 73 61 67 65 20 73 | 75 62 73 74 69 74 75 74 |essage s|ubstitut|
|00001000| 65 2d 63 6f 6d 6d 61 6e | 64 2d 6b 65 79 73 20 22 |e-comman|d-keys "|
|00001010| 54 79 70 65 20 5c 5c 5b | 48 65 6c 70 65 72 2d 68 |Type \\[|Helper-h|
|00001020| 65 6c 70 5d 20 66 6f 72 | 20 68 65 6c 70 2c 20 3f |elp] for| help, ?|
|00001030| 20 66 6f 72 20 63 6f 6d | 6d 61 6e 64 73 2c 20 43 | for com|mands, C|
|00001040| 2d 63 20 43 2d 63 20 74 | 6f 20 71 75 69 74 2c 20 |-c C-c t|o quit, |
|00001050| 53 70 61 63 65 20 74 6f | 20 65 78 65 63 75 74 65 |Space to| execute|
|00001060| 22 20 73 69 74 2d 66 6f | 72 20 34 5d 20 33 20 6e |" sit-fo|r 4] 3 n|
|00001070| 69 6c 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |il nil])|.(fset '|
|00001080| 45 6c 65 63 74 72 69 63 | 2d 68 69 73 74 6f 72 79 |Electric|-history|
|00001090| 2d 71 75 69 74 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |-quit #[|nil "..!|
|000010a0| ad 88 c2 c3 21 88 c4 c5 | c3 5c 22 87 22 20 5b 62 |....!...|.\"." [b|
|000010b0| 6f 75 6e 64 70 20 65 6c | 65 63 74 72 69 63 2d 68 |oundp el|ectric-h|
|000010c0| 69 73 74 6f 72 79 2d 69 | 6e 2d 70 72 6f 67 72 65 |istory-i|n-progre|
|000010d0| 73 73 20 6d 65 73 73 61 | 67 65 20 6e 69 6c 20 74 |ss messa|ge nil t|
|000010e0| 68 72 6f 77 20 65 6c 65 | 63 74 72 69 63 2d 68 69 |hrow ele|ctric-hi|
|000010f0| 73 74 6f 72 79 2d 71 75 | 69 74 5d 20 33 20 22 5c |story-qu|it] 3 "\|
|00001100| 0a 51 75 69 74 20 45 6c | 65 63 74 72 69 63 20 43 |.Quit El|ectric C|
|00001110| 6f 6d 6d 61 6e 64 20 48 | 69 73 74 6f 72 79 2c 20 |ommand H|istory, |
|00001120| 72 65 73 74 6f 72 69 6e | 67 20 70 72 65 76 69 6f |restorin|g previo|
|00001130| 75 73 20 77 69 6e 64 6f | 77 20 63 6f 6e 66 69 67 |us windo|w config|
|00001140| 75 72 61 74 69 6f 6e 2e | 22 20 6e 69 6c 5d 29 0a |uration.|" nil]).|
+--------+-------------------------+-------------------------+--------+--------+
